﻿Public Class frmJuegos
    Dim c As Integer = 0
    Dim nombre As String 'CREAMOS UN VALOR NOMBRE DE TIPO CADENA PARA LA VERIFICACION DE ENTRADA DEL TEXTO DE NOMBRE
    Dim pass As String 'CREAMOS UN VALOR PASSWORRD DE TIPO CADENA PARA LA VERIFICACION DE ENTRADA DEL TEXTO DE PASS
    Private Sub frmJuegos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        conectar() 'PERMITE INICIALIZAR LA CONECCION
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim rs As ADODB.Recordset 'CREAMOS UN OBJETO RS DE TIPO ADO PARA LA CONECCION
        Dim sql As String ' CREAMOS UN VALOR SQL DE TIPO CADENA PARA LOS DIEFRENTES PROCESOS DE CONECCION(INSERTAR Y SELECIONAR PARA CONSULTA)
        sql = "Select *from USUARIO WHERE CODI_ADMIN='" & txtUsuario.Text & "'" 'SELECCIONAMOS DE LA TABLA USUARIO EL CAMPO CODIGO DE ADMINITRADOR Y 
        rs = coneccion.Execute(sql) 'PERMITE EJECUTAR LA CONECCION

        If rs.EOF <> True Then 'ESTO NOS DA UN VALOR BOOLEANO DE TIPO FALSO  MIENTRAS QUE EXISTA LOS DATOS CONSULTADOS
            rs.MoveFirst() 'NOS PERMITE MOVER EL PRIMER REGISTRO Y LEERLO 
            If txtCodigo.Text = rs.Fields(1).Value.ToString Then 'NOS PERMITE VERIFICAR QUE SI EL CODIGO DE LA PRIMERA COLUMNA DE LA TABLA USUARIO EXISTE PARA LA RESPECTIVA CONECCION
                Me.Hide() 'CIERRA LA APLICACION ACTUAL
                frmListaJuegos.Show() 'PERMITE  MOSTRAR EL FORMULARIO FRMLISTAJUEGOS
            Else
                MsgBox("Error") 'SI EL CODIGO NO ES LA CORRECTA ENTONCES SALDRA DICHA VENTANA DE ERROR
            End If
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Hide() 'CIERRA LA APLICACION ACTUAL
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtUsuario.TextChanged
        PictureBox1.Load("clients.gif") 'MUESTRA LA IMAGEN SI EL TEXT USUARIO NO SE ENCUENTRA VACIO
    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtCodigo.TextChanged
        PictureBox2.Load("l.bmp") 'MUESTRA LA IMAGEN SI EL TEXT PASSWORD NO SE ENCUENTRA VACIO

    End Sub
End Class